DELETE û przyk│ad instrukcji

W tym przyk│adzie usuwane s╣ wszystkie rekordy pracownik≤w posiadaj╣cych tytu│ Sta┐ysta. Nie jest konieczne wymienianie nazwy tabeli w instrukcji DELETE, gdy┐ klauzula FROM zawiera tylko jedn╣ tabelΩ.

Sub DeleteX()

    Dim dbs As Database, rst As Recordset

    ' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a

    ' na rzeczywist╣ bazΩ danych Northwind.

    Set dbs = OpenDatabase("Northwind.mdb")

    ' Usu± rekordy pracownik≤w, posiadaj╣cych tytu│    

    ' Sta┐ysta.

dbs.Execute "DELETE * FROM " _

        & "Pracownicy WHERE Tytu│ = 'Sta┐ysta';"

    dbs.Close

End Sub